home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / comms / gt1800_1.arj / SCRIPT.SCR < prev    next >
Text File  |  1988-04-26  |  2KB  |  60 lines
  1. ;
  2. ;  This is an example.   It is not meant to be used as is, but is meant to
  3. ;  be a learning aid to people who wish to understand how to construct a
  4. ;  script.
  5. ;
  6. writeln "Copyright (c) 1986: by P & M Software Co."
  7. writeln
  8. set 1200,n,8,1
  9. when "More" then "N"
  10. beep
  11. writeln "Script to call the PC Interconnection."
  12. name "PC Interconnection"
  13. writeln "Dialing the phone number.  713 is area code."
  14. dial "955-8120" redial
  15.   writeln "Telling the host how fast we are."
  16.   autobaud
  17.   writeln "Waiting for login:"
  18.   wait for "name:"
  19.   writeln
  20.   writeln "Enter you name on 1 line, example: Johnny Jones"
  21.   write "What name should I give? "
  22.   readln v1
  23.   sendln %1
  24.   sendln "y"
  25.   wait for "word:"
  26.   write "What password should I use? "
  27.   readln v2
  28.   sendln %2
  29.   capture
  30.     writeln "Wait for Main Menu"
  31.     wait for "help:"
  32.     sendln "?"
  33.     online
  34.   capture sample.dat
  35. end
  36. hang-up
  37. flush
  38. writeln "End of script for the PC Interconnection."
  39. beep
  40. writeln "Script to call the Programmer's Workshop."
  41. name "the Programmer's Workshop"
  42. writeln "Dialing the phone number.  713 is area code."
  43. dial "772-2090" redial
  44.   writeln "Telling the host how fast we are."
  45.   autobaud
  46.   writeln "Waiting for login:"
  47.   wait for "name:"
  48.   writeln "Signing in"
  49.   sendln "Paul Meiners"
  50.   sendln "y"
  51.   wait for "word:"
  52.   sendln "humpty-dumpty"
  53.   writeln "Wait for Main Menu"
  54.   wait for "help:"
  55.   sendln "?"
  56.   online
  57. end
  58. flush
  59. writeln "End of script for the Programmer's Workshop"
  60.